home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / graphics / wheel.zip / wheel.pov < prev   
Text File  |  1994-04-20  |  3KB  |  131 lines

  1. // A POV-Ray v2 scene description file (for animation)
  2. // Contains a <rotating> wheel and <bulging> spheres
  3. // Requires the Perl script 'wheel.pl' to create the values for animation
  4. // variables.
  5. // by Jussi Kantola (jkantola@paju.oulu.fi)
  6. //
  7.  
  8. #default { texture { finish { ambient 0.05 diffuse 0.95 } } }
  9.  
  10. #declare SkyBlue = color red 0.196078 green 0.6 blue 0.8
  11. #declare Tan = color red 0.858824 green 0.576471 blue 0.439216
  12. #declare White = color rgb <1, 1, 1>
  13. #declare Black = color rgb <0, 0, 0>
  14.  
  15. #include "colors.inc"
  16.  
  17. #declare Colors3 = color_map  // Very realistic!
  18.    {
  19.    [0.0 0.1 color SkyBlue color SkyBlue]
  20.    [0.70 color rgb <4/5, 4/5, 5/6>]
  21.    [1.0 color White]
  22.    }
  23.  
  24. #declare CloudSky = texture  // this is the cloud texture
  25.    {
  26.    pigment
  27.       {
  28.       bozo
  29.       turbulence 0.5
  30.       octaves 3   // doesn't have much effect
  31.       lambda 6    // bigger values are worth trying
  32.       color_map { Colors3 }
  33.       }
  34.    finish { ambient 1 diffuse 0 }
  35.    scale 1/6   // please notice
  36.    }
  37.  
  38. /*#declare Sphere1_Rad = 1
  39. #declare Sphere2_Rad = 1
  40. #declare Sphere3_Rad = 1
  41. #declare Sphere4_Rad = 1
  42. #declare TRad = 5
  43. #declare WheelRot = 0*/
  44.  
  45. camera
  46.    {
  47.    location <0, 6, -14>
  48.    right 4/3*x
  49.    up y
  50.    direction z
  51.    look_at <0, 1, 0>
  52.    }
  53.  
  54. // mirrors
  55.  
  56. object
  57.    {
  58.    union
  59.       {
  60.       sphere { <-5, 1,  5>, Sphere1_Rad }
  61.       sphere { <-5, 1, -5>, Sphere2_Rad }
  62.       sphere { < 5, 1,  5>, Sphere3_Rad }
  63.       sphere { < 5, 1, -5>, Sphere4_Rad }
  64.       }
  65.    pigment { color Black }
  66.    finish { reflection 0.92 specular 1.0 roughness 0.0003 }
  67.    }
  68.  
  69. // wheel
  70.  
  71. object
  72.    {
  73.    union
  74.       {
  75.       torus { TRad, TRad/15 translate <0, TRad/15, 0> }
  76.       union
  77.          {
  78.          cylinder { <-TRad, TRad/15, 0>, <TRad, TRad/15, 0>, TRad/15 }
  79.          cylinder { <0, TRad/15, -TRad>, <0, TRad/15, TRad>, TRad/15 }
  80.          bounded_by { box { <-TRad, 0, -TRad>, <TRad, 2*TRad/15, TRad> } }
  81.          }
  82.       bounded_by 
  83.          { 
  84.          box 
  85.             { 
  86.             <-TRad-TRad/15, 0, -TRad-TRad/15>,
  87.             <TRad+TRad/15, 2*TRad, TRad+TRad/15>
  88.             }
  89.          }
  90.       }
  91.    pigment { color rgb <1/5, 1/2, 1> }
  92.    finish { specular 1.0 roughness 0.01 }
  93.    rotate <0, WheelRot, 0>
  94.    }
  95.  
  96. plane
  97.    {
  98.    y, 0
  99.    pigment { color Tan }
  100.    finish { reflection 0.3 }
  101.    }
  102.  
  103. sphere
  104.    {
  105.    <0, 0, 0>, 1
  106.    texture { CloudSky }
  107.    scale <90, 15, 90>
  108.    }
  109.       
  110. light_source 
  111.    { 
  112.    <-5, 8, -2> color White 
  113.    spotlight
  114.       point_at <-3+L1X, 0, -1+L1Z>
  115.       radius 30
  116.       falloff 40
  117.    }
  118.  
  119. light_source 
  120.    { 
  121.    < 5, 9, -5> color White 
  122.    spotlight
  123.       point_at <2+L2X, 0, -2+L2Z>
  124.       radius 30
  125.       falloff 40
  126.     }
  127.  
  128.  
  129.  
  130.  
  131.